home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / workbench-tools / backgroundv2.11 / background-install < prev    next >
Encoding:
Text File  |  1997-05-18  |  20.1 KB  |  625 lines
  1. ; Install script for Background
  2. ; V1.1 04.08.1997
  3.  
  4. ;--------------------------------- Translators --------------------------------
  5. ;Anyone who wants to translate the texts used in this scipts is hereby
  6. ;encouraged to do so. Below is a template use this and the English texts as a
  7. ;template for your translation. When fininshed, please send me the script for
  8. ;including it in the next release.
  9. ;
  10. ;   Roland Haas
  11. ;   Mühlweg 16
  12. ;   77948 Friesenheim
  13. ;   GERMANY
  14.  
  15. ;--- cut here --8<------insert point is marked later----------------------------
  16.  
  17. ;--- <your language> ---
  18. ;(if (= @language "<your-language>")
  19. ;(
  20. ;(if (< (getversion) 38) (set @abort-install "<Abort install>"))
  21. ;(set #Ja <Yes>)
  22. ;(set #Nein <No>)
  23. ;(set #hallo
  24. ;cat (<welcome to the Installation...>
  25. ;))
  26. ;(set #WohinKopieren
  27. ;(cat <Where to copy the main program>
  28. ;))
  29. ;(set #help_WohinKopieren
  30. ;(cat <Help text: Where to copy the main program?>
  31. ;))
  32. ;(set #KopiereHauptprogramm
  33. ;(cat <Displayed while copying the main program>
  34. ;))
  35. ;(set #help_KopiereHauptprogramm
  36. ;(cat <Where the main program is copied to>
  37. ;))
  38. ;(set #PrefsKopieren?
  39. ;(cat (<Want to copy the prefs?>
  40. ;))
  41. ;(set #help_PrefsKopieren?
  42. ;(cat <Help text: What does the preferences editor?>
  43. ;))
  44. ;(set #PrefsWohinKopieren
  45. ;(cat <Where to copy the prefs editor>
  46. ;))
  47. ;(set #help_PrefsWohinKopieren
  48. ;(cat <Help text: Where to copy the prefs editor?>
  49. ;))
  50. ;(set #KopierePrefs
  51. ;(cat <Displayed while copying the prefs editor>
  52. ;))
  53. ;(set #help_KopierePrefs
  54. ;(cat <Where the prefs editor is copied to>
  55. ;))
  56. ;(set #KopiereLib
  57. ;(cat <Displayed while copying the needed library>
  58. ;))
  59. ;(set #help_KopiereLib
  60. ;(cat <Why the library is needed>
  61. ;))
  62. ;(set #PresetKopieren?
  63. ;(cat <Want an example?>
  64. ;))
  65. ;(set #help_PresetKopieren?
  66. ;(cat <Help text: An example?>
  67. ;))
  68. ;(set #PresetWohinKopieren
  69. ;(cat <Where to copy the example to>
  70. ;))
  71. ;(set #help_PresetWohinKopieren
  72. ;(cat <Help text: Where to copy the example to?>
  73. ;))
  74. ;(set #KopierePreset
  75. ;(cat <Displayed while copying the eample>
  76. ;))
  77. ;(set #help_KopierePreset
  78. ;(cat <Where the example is copied to>
  79. ;))
  80. ;(set #preset-datei
  81. ;(cat "\"<complete path of picture>\" #?                  TILE ;standard picture\n"
  82. ;     "\"<complete path of picture>\" %                   TILE ;workbench window\n"
  83. ;     "\"<complete path of picture>\" \"Workbench Screen\" TILE ;screen picture\n"
  84. ;     "\"<complete path of picture>\" \"<Pattern: (),%,#?,|>\" \"<Pattern: (),%,#?,|>\" TILE\n"
  85. ;     ";Copy the line above if you need more pictures\n"
  86. ;))
  87. ;(set #VerändereStart?
  88. ;(cat <Start Background during reboot?>
  89. ;))
  90. ;(set #help_VerändereStart?
  91. ;(cat <Help text: Why should it be started?>
  92. ;))
  93. ;(set #VerändereStart
  94. ;(cat <Displayed while adding entry to user-startup>
  95. ;))
  96. ;(set #help_VerändereStart
  97. ;(cat <Help text: Why am I adding this entry?>
  98. ;))
  99. ;(set #WelcheAnleitungen
  100. ;(cat <Docs?>
  101. ;))
  102. ;(set #help_WelcheAnleitungen
  103. ;(cat <Help text: Guide - AmigaGuide format>
  104. ;     <           ASCII - plain text>
  105. ;     <           experts can install foreign languages>
  106. ;))
  107. ;(set #AnlWohinKopieren
  108. ;(cat <Where to copy the docs to>
  109. ;))
  110. ;(set #help_AnlWohinKopieren
  111. ;(cat <Help text: Guide - AmigaGuide format>
  112. ;     <           ASCII - plain text>
  113. ;     <           experts can install foreign languages>
  114. ;))
  115. ;(set #KopiereAnleitungen
  116. ;(cat <Select docs you need>
  117. ;))
  118. ;(set #help_KopiereAnleitungen
  119. ;(cat <Help text: What is what?>
  120. ;     <           Language markers>
  121. ;))
  122. ;(set #WoSindProc
  123. ;(cat <Installation completed\n>
  124. ;     <Where Background can be found\n>
  125. ;))
  126. ;(set #WoSindPrefs
  127. ;(cat <Where the prefs editor can be found\n>
  128. ;))
  129. ;(set #WoSindPresets
  130. ;(cat <Where the example can be found\n>
  131. ;))
  132. ;(set #WoSindAnl
  133. ;(cat <Where the docs can be found\n>
  134. ;))
  135. ;) ;<your language>
  136.  
  137. ;---cut here -8<--------------------------------------------------------------
  138.  
  139. ;--- Deutsch ---
  140. (if (= @language "deutsch")
  141. (
  142. (if (< (getversion) 38) (set @abort-install "Installation abbrechen"))
  143. (set #Ja "Ja")
  144. (set #Nein "Nein")
  145. (set #hallo
  146.      "Willkommen zur Installation des Verschönerungsprogramms \"Background\"! "
  147. )
  148. (set #WohinKopieren
  149. (cat "Bitte geben Sie die Schublade an, in die das Hauptprogramm \"Background\" "
  150.      "kopiert werden soll. "
  151. ))
  152. (set #help_WohinKopieren
  153. (cat "Sie müssen das Verzeichnis angeben, in das das Hauptprogramm \"Background\" "
  154.      "kopiert werden soll. Dieses Programm muß möglichst früh während des "
  155.      "Startvorgangs ausgeführt werden. Am besten kopieren Sie es in die Schublade "
  156.      "Tools und rufen es in der \"user-startup\" auf. Wenn das nicht möglich ist "
  157.      "kopieren sie es am besten nach WBStartup. "
  158. ))
  159. (set #KopiereHauptprogramm
  160. (cat "Kopiere das Hauptprogramm und sein Piktogramm. "
  161. ))
  162. (set #help_KopiereHauptprogramm
  163. (cat "Momentan wird das Hauptprogramm mitsammt seinem Piktogramm nach %s "
  164.      "kopiert. "
  165. ))
  166. (set #PrefsKopieren?
  167.      "Wollen Sie das Voreinstellungsprogramm auch kopieren? "
  168. )
  169. (set #help_PrefsKopieren?
  170. (cat "Mit Hilfe des Voreinstellungsprogramms können Sie auf einfache Weise "
  171.      "festlegen welches Bild für welches Fenster verwendet werden soll. "
  172.      "Es sollte auf jeden Fall kopiert werden, da das Format der Einstellungsdatei "
  173.      "ziemlich unübersichtlich ist. "
  174. ))
  175. (set #PrefsWohinKopieren
  176. (cat "Bitte geben Sie die Schublade an, in die das Voreinstellungsprogramm "
  177.      "kopiert werden soll. Üblicherweise ist das Prefs. "
  178. ))
  179. (set #help_PrefsWohinKopieren
  180. (cat "Sie müssen das Verzeichnis angeben, in das das Voreinstellungsprogramm "
  181.      "kopiert werden soll. Mit Hilfe dieses Programms legen Sie fest welches "
  182.      "Bild für welches Fenster verwendet werden soll. "
  183. ))
  184. (set #KopierePrefs
  185. (cat "Kopiere das Voreinstellungsprogramm und sein Piktogramm. "
  186. ))
  187. (set #help_KopierePrefs
  188. (cat "Momentan wird das Voreinstellungsprogramm mitsammt seinem Piktogramm "
  189.      "nach %s kopiert. "
  190. ))
  191. (set #KopiereLib
  192. (cat "Kopiere gadutil.library nach LIBS:. "
  193. ))
  194. (set #help_KopierePrefs
  195. (cat "Das Voreinstellungsprogramm benötigt gadutil.library um sein Fenster "
  196.      "zu öffnen."
  197. ))
  198. (set #PresetKopieren?
  199.      "Wollen Sie eine Beispielkonfiguration erstellen lassen? "
  200. )
  201. (set #help_PresetKopieren?
  202. (cat "Erstellt in einem wählbaren Verzeichnis eine Konfigurationsdatei, die "
  203.      "leicht an ihr System angepaßt werden kann. "
  204. ))
  205. (set #PresetWohinKopieren
  206. (cat "Bitte geben Sie die Schublade an, in die die Beispielkonfiguration "
  207.      "kopiert werden soll. Üblicherweise ist das Prefs/Presets. "
  208. ))
  209. (set #help_PresetWohinKopieren
  210. (cat "Sie müssen das Verzeichnis angeben, in das die Beispielkonfiguration "
  211.      "kopiert werden soll. Diese Datei ist als Vorlage gedacht und muß noch "
  212.      "an ihre persönlichen Bedürfnisse angepaßt werden. "
  213. ))
  214. (set #KopierePreset
  215. (cat "Kopiere die Beispielkonfiguration. "
  216. ))
  217. (set #help_KopierePreset
  218.      "Momentan wird die Beispielkonfiguration nach %s kopiert. "
  219. )
  220. (set #preset-datei
  221. (cat "\"<Vollständiger Pfad des Bildes>\" #?                  TILE ;Standartbild\n"
  222.      "\"<Vollständiger Pfad des Bildes>\" %                   TILE ;Workbenchfenster\n"
  223.      "\"<Vollständiger Pfad des Bildes>\" \"Workbench Screen\" TILE ;Screen\n"
  224.      "\"<Vollständiger Pfad des Bildes>\" \"<Muster: (),%,#?,|>\"  \"<Muster: (),%,#?,|>\"TILE\n"
  225.      ";Die vorhergehende Zeile für weitere Bilder verdoppeln\n"
  226. ))
  227. (set #VerändereStart?
  228.      "Soll Background während des Systemstart aufgerufen werden? "
  229. )
  230. (set #help_VerändereStart?
  231. (cat "Background sollte während des Systemstarts, möglicht noch vor loadwb, "
  232.      "aufgerufen werden, da sich so ein lästiger Effekt vermeiden läßt. "
  233.      "(Das schnelle Öffnen und Schließen eines Fensters um die Hintergrundbilder "
  234.      "sichtbar zu machen). "
  235. ))
  236. (set #VerändereStart
  237.      "Füge Aufruf von Background in die user-startup ein. "
  238. )
  239. (set #help_VerändereStart
  240. (cat "Background muß möglichst früh während des systemstarts aufgerufen werden. "
  241.      "Deshalb wird ein Eintrag in die user-startup eingefügt, der Background "
  242.      "noch bevor die Workbench geladen wird aufruft. "
  243. ))
  244. (set #WelcheAnleitungen
  245.      "Welche Anleitungen möchten Sie kopieren? "
  246. )
  247. (set #help_WelcheAnleitungen
  248. (cat "Sie können sich aussuchen welche Anleitungen sie kopieren wollen. "
  249.      "Die Guide-Anleitung können Sie nur verwenden, wenn sie AmigaGuide oder "
  250.      "MultiView besitzen.\n"
  251.      "EXPERTen können auch fremdsprachige Anleitungen kopieren. (Auch wenn mir "
  252.      "nicht klar ist, warum man das tun sollte) "
  253. ))
  254. (set #AnlWohinKopieren
  255.      "In welches Verzeichnis soll die Dokumentation kopiert werden? "
  256. )
  257. (set #help_AnlWohinKopieren
  258. (cat "Wohin wollen Sie die Anleitungen für das Hauptprogramm und das "
  259.      "Voreinstellungsprogramm kopieren?\n"
  260.      "Als EXPERTe können Sie auch fremdsprachige Anleitungen kopieren, sonst "
  261.      "wird immer die Anleitung in der jeweiligen Landessprache kopiert (oder "
  262.      "Englisch, wenn es keine Übersetzung gibt. "
  263. ))
  264. (set #KopiereAnleitungen
  265.      "Welche Anleitungen benötigen Sie? "
  266. )
  267. (set #help_KopiereAnleitungen
  268. (cat "Wählen Sie diejenige Anleitung aus, die für Sie in Frage kommt. Die "
  269.      "Anleitungen für das Hauptprogramm beginnen alle mit \"Background\", "
  270.      "die für das Voreinstellungsprogramm mit \"BackPrefs\".\n"
  271.      "ASCII bedeutet reinen Text, Guide ein AmigaGuide Dokument. "
  272. ))
  273. (set #WoSindProc
  274. (cat "Installation abgeschlossen!\n"
  275.      "\"Background\" finden Sie nun in Ihrer Schublade (oder "
  276.      "Partition) \"%s\"\n"
  277. ))
  278. (set #WoSindPrefs
  279. (cat "Das Voreinstellungsprogramm finden Sie nun in Ihrer Schublade (oder "
  280.      "Partition) \"%s\"\n"
  281. ))
  282. (set #WoSindPresets
  283. (cat "Die Beispielkonfiguration finden Sie nun in Ihrer Schublade (oder "
  284.      "Partition) \"%s\"\n"
  285. ))
  286. (set #WoSindAnl
  287.      "Die Dokumentation finden Sie nun in Ihrer Schublade (oder Partition) \"%s\"\n"
  288. )
  289. ) ;Deutsch
  290.  
  291. ;----- insert here -----------------------------------------------------------
  292.  
  293. ;--- English ---
  294. (
  295. (set @language "english")
  296. (set #Ja "Yes")
  297. (set #Nein "No")
  298. (set #hallo
  299.      "Welcome to the installation utility for \"Background\"! "
  300. )
  301. (set #WohinKopieren
  302. (cat "Please choose a drawer where you want the main-program \"Background\" "
  303.      "to be copied to. "
  304. ))
  305. (set #help_WohinKopieren
  306. (cat "You must select a drawer to which the main-program \"Background\" should "
  307.      "be copied. This program must be started as early as possible during "
  308.      "system reboot. It's best to copy it to the Tools drawer and call it within "
  309.      "the \"user-startup\". If this isn't possible copy the programm to WBStartup. "
  310. ))
  311. (set #KopiereHauptprogramm
  312. (cat "Copying the main-program and its icon. "
  313. ))
  314. (set #help_KopiereHauptprogramm
  315.      "Currently the main-program and its icon are copied to %s. "
  316. )
  317. (set #PrefsKopieren?
  318.      "Do you want to also copy the preferences editor? "
  319. )
  320. (set #help_PrefsKopieren?
  321. (cat "Using the preferences editor you can easily define which picture should "
  322.      "be used for a window. You should allways copy it, because the file it "
  323.      "creates for you has a rather _strange_ layout. ;-)"
  324. ))
  325. (set #PrefsWohinKopieren
  326. (cat "Please select a drawer which the preferences editor should be copied "
  327.      "to. Usualy this would be Prefs. "
  328. ))
  329. (set #help_PrefsWohinKopieren
  330. (cat "You must choose the drawer to which the preferences editor should be copied. "
  331.      "This program is used to define which picture is to use for a window. "
  332. ))
  333. (set #KopierePrefs
  334. (cat "Copying the preferences editor and its icon... "
  335. ))
  336. (set #help_KopierePrefs
  337.      "Currently the preferences editor and its icon are copied to %s. "
  338. )
  339. (set #KopiereLib
  340. (cat "Copying gadutil.library to LIBS: ..."
  341. ))
  342. (set #help_KopiereLib
  343.      "The preferences editor needs gadutil.library to open its window"
  344. )
  345. (set #PresetKopieren?
  346.      "Do you want the example configuration to be created? "
  347. )
  348. (set #help_PresetKopieren?
  349. (cat "A configuration file, that is easy to adapt to your own wishes, will "
  350.      "be created in a definable drawer. "
  351. ))
  352. (set #PresetWohinKopieren
  353. (cat "Please choose a drawer where the example configuration will be stored. "
  354.      "Usualy this would be Prefs/Presets. "
  355. ))
  356. (set #help_PresetWohinKopieren
  357. (cat "You must select a drawer to which the example configuration should be "
  358.      "copied to. This file is a template that needs to be adapted to your "
  359.      "personal requirements. "
  360. ))
  361. (set #KopierePreset
  362. (cat "Copying the example configuration... "
  363. ))
  364. (set #help_KopierePreset
  365.      "Currently the example configuration is copied to %s. "
  366. )
  367. (set #preset-datei
  368. (cat "\"<complete path of picture>\" #?                  TILE ;standard picture\n"
  369.      "\"<complete path of picture>\" %                   TILE ;workbench window\n"
  370.      "\"<complete path of picture>\" \"Workbench Screen\" TILE ;screen picture\n"
  371.      "\"<complete path of picture>\" \"<Pattern: (),%,#?,|>\" \"<Pattern: (),%,#?,|>\" TILE\n"
  372.      ";Copy the line above if you need more pictures\n"
  373. ))
  374. (set #VerändereStart?
  375.      "Should Background be called uppon reset? "
  376. )
  377. (set #help_VerändereStart?
  378. (cat "Background should be started during system reboot, if possibly before "
  379.      "workbench is loaded, to avoid an annoying effect. "
  380.      "(Fast opening and closing a window to make the pictures visible) "
  381. ))
  382. (set #VerändereStart
  383.      "Adding background to the user-startup... "
  384. )
  385. (set #help_VerändereStart
  386. (cat "Background must be started as early as possibly during system reboot. "
  387.      "Because of this an entry is added to the user-startup that calls Background "
  388.      "even before workbench is loaded. "
  389. ))
  390. (set #WelcheAnleitungen
  391.      "Which docs do you need? "
  392. )
  393. (set #help_WelcheAnleitungen
  394. (cat "You can choose which docs you need. The Guide docs are only usable if "
  395.      "you own AmigaGuide or MultiView.\n"
  396.      "EXPERTs are also allowed to copy foreign language docs. (Also "
  397.      "I don't know why you should do this) "
  398. ))
  399. (set #AnlWohinKopieren
  400.      "Where should the docs be copied to? "
  401. )
  402. (set #help_AnlWohinKopieren
  403. (cat "Where do you want to copy the docs for the main-program and the preferences "
  404.      "editor?\n"
  405.      "As an EXPERT you are allowed to copy foreign language docs, otherwise "
  406.      "the doc in your own language is copied (or English if there's no translation). "
  407. ))
  408. (set #KopiereAnleitungen
  409.      "Which docs do you need? "
  410. )
  411. (set #help_KopiereAnleitungen
  412. (cat "Choose the docs that are in your language. The docs for the main-program "
  413.      "all start with \"Background\", the ones for the preferences editor with "
  414.      "\"BackPrefs\".\n"
  415.      "ASCII means plain, Guide an AmigaGuide document. "
  416. ))
  417. (set #WoSindProc
  418. (cat "Installation cpompleted!\n"
  419.      "\"Background\" can be found in %s drawer (or partition).\n"
  420. ))
  421. (set #WoSindPrefs
  422.      "The preferences editor can be found in your %s drawer (or partition).\n"
  423. )
  424. (set #WoSindPresets
  425.      "The example configuration can be found in your %s drawer (or partition).\n"
  426. )
  427. (set #WoSindAnl
  428.      "The docs can be found in your %s drawer (or partition).\n"
  429. )
  430. )) ;English
  431.  
  432. ;-----------------------------------------------------------------------------
  433. ;Begrüßung
  434. (welcome #hallo)
  435. (complete 0)
  436.  
  437. ;Wohin kopieren?
  438. (if @user-level
  439.    (set @default-dest
  440.       (askdir
  441.          (prompt #WohinKopieren)
  442.          (help #help_WohinKopieren)
  443.          (default
  444.             (if (exists (tackon @default-dest "Tools") (noreq))
  445.                (tackon @default-dest "Tools")
  446.                (if (exists (tackon @default-dest "WBStartup") (noreq))
  447.                   (tackon @default-dest "WBStartup")
  448.                   (cat @default-dest "") ;Keins von oben passt
  449.                ) ;das untere if
  450.             ) ;das obere if
  451.          ) ;default
  452.       ) ;askdir
  453.    ) ;set
  454.    (set @default-dest (tackon @default-dest "Tools"))
  455. ) ;if user
  456. (complete 10)
  457.  
  458. ;Hauptprogramm kopieren
  459. (copyfiles (prompt #KopiereHauptprogramm)
  460.            (help (#help_KopiereHauptprogramm @default-dest))
  461.            (source "Background")
  462.            (dest @default-dest)
  463.            (infos)
  464.            (noposition)
  465.            (optional "force" "askuser")
  466. ) ;copyfiles
  467. (complete 20)
  468.  
  469. ;------------------------------------------------------------------------------
  470.  
  471. ;Auch das Prefs-Programm kopieren?
  472. (set #prefs-dest "Sys:Prefs")
  473. (if (= @user-level 2)
  474.    (set #copy-prefs (askbool (prompt #PrefsKopieren?) (help #help_PrefsKopieren?) (choices #Ja #Nein)))
  475.    (set #copy-prefs 1)
  476. ) ;Nur für Experten
  477. (if #copy-prefs
  478. ;Wohin damit?
  479.    (((if @user-level
  480.       (set #prefs-dest
  481.          (askdir
  482.             (prompt #PrefsWohinKopieren)
  483.             (help #help_PrefsWohinKopieren)
  484.             (default
  485.                (if (exists (tackon (cat (getdevice @default-dest) ":") "Prefs") (noreq))
  486.                   (tackon (cat (getdevice @default-dest) ":") "Prefs")
  487.                   (cat @default-dest "")
  488.                ) ;das obere if
  489.             ) ;default
  490.          ) ;askdir
  491.       ) ;set
  492.       (set #prefs-dest (tackon (cat (getdevice @default-dest) ":") "Prefs"))
  493.    (complete 30))) ;if user
  494. ;Prefs-Programm kopieren
  495.    ((copyfiles (prompt #KopierePrefs)
  496.               (help (#help_KopierePrefs #prefs-dest))
  497.               (source "Prefs/Background")
  498.               (dest #prefs-dest)
  499.               (infos)
  500.               (noposition)
  501.               (optional "force" "askuser"))
  502.    ) ;copyfiles
  503.    (complete 35)
  504. ;Library kopieren
  505.    ((copylib (prompt #KopiereLib)
  506.               (help #help_KopiereLib)
  507.               (source "Prefs/gadutil.library")
  508.               (dest "Sys:Libs")
  509.               (optional "force" "askuser"))
  510.    ) ;copylib
  511.    (complete 40))
  512. ) ;if KopierePrefs?
  513.  
  514. ;Preset kopieren
  515. (if (= @user-level 2)
  516.    (set #copy-preset (askbool (prompt #PresetKopieren?) (help #help_PresetKopieren?) (default 1) (choices #Ja #Nein)))
  517.    (set #copy-preset 1)
  518. ) ;Nur Experten dürfen wählen
  519. (complete 50)
  520.  
  521. (if #copy-preset
  522. ;Wohin damit?
  523.    ((set #preset-dest
  524.       (if @user-level
  525.          (askdir
  526.             (prompt #PresetWohinKopieren)
  527.             (help #help_PresetWohinKopieren)
  528.             (default
  529.                (if #copy-prefs
  530.                   (
  531.                      (if (exists (tackon #prefs-dest "Presets") (noreq))
  532.                         (tackon #prefs-dest "Presets")
  533.                         (if (= (exists "ENVARC:" (noreq)) 2)
  534.                            (cat "ENVARC:" "")
  535.                            (cat @default-dest "")
  536.                         ) ;if ENV:
  537.                      ) ;if Presets
  538.                   )
  539.                   (
  540.                      (if (= (exists "ENVARC:" (noreq)) 2)
  541.                         (cat "ENVARC:" "")
  542.                         (cat @default-dest "")
  543.                      ) ;if ENV:
  544.                   )
  545.                ) ;if copyprefs
  546.             ) ;default
  547.          ) ;askdir
  548.          (tackon #prefs-dest "Presets")
  549.       ) ;if user
  550.    ) ;set preset-dest
  551. ;Preset erstellen
  552.    (textfile
  553.       (prompt #KopierePreset)
  554.       (help #help_KopierePreset #preset-dest)
  555.       (dest (tackon #preset-dest "background.conf"))
  556.       (append #preset-datei)
  557.    ) ;textfile
  558.    (copyfiles
  559.       (prompt #KopierePreset)
  560.       (help #help_KopierePreset #preset-dest)
  561.       (dest #preset-dest)
  562.       (source "Prefs/Presets/Background.conf.info")
  563.       (optional "force" "askuser")
  564.    )) ;copyfiles (Icon)
  565. ) ;if KopierePreset?
  566. (complete 60)
  567.  
  568.  
  569. ;------------------------------------------------------------------------------
  570.  
  571. ;Automatisch starten?
  572. (if @user-level
  573.    (if (patmatch "#?WBStartup(%|/)" @default-dest)
  574.       (set #auto-start 0)
  575.       (set #auto-start (askbool (prompt #VerändereStart?) (help #help_VerändereStart?) (default 1) (choices #Ja #Nein)))
  576.    ) ;if NOT
  577.    (set #auto-start 1)
  578. ) ;if @user-level
  579. ;startup-sequence ändern
  580. (if #auto-start
  581.    (startup
  582.       @app-name
  583.       (prompt #VerändereStart)
  584.       (help #help_VerändereStart)
  585.       (command (tackon @default-dest "Background NOSCAN OPENWBENCH"))
  586.    ) ;startup
  587. ) ;if auto-start
  588. (complete 70)
  589.  
  590. ;------------------------------------------------------------------------------
  591.  
  592. ;Welche Anleitungen kopieren?
  593. (if @user-level
  594.    (set #docs-dest
  595.          (askdir
  596.             (prompt #AnlWohinKopieren)
  597.             (help #help_AnlWohinKopieren)
  598.             (default @default-dest)
  599.          ) ;askdir
  600.    ) ;set
  601.    (set #docs-dest @default-dest)
  602. ) ;if @user-level
  603. (complete 80)
  604. ;Anleitungen kopieren
  605. (copyfiles
  606.    (prompt #KopiereAnleitungen)
  607.    (help #help_KopiereAnleitungen)
  608.    (dest #docs-dest)
  609.    (source "Docs/")
  610.    (if (= @user-level 2) (all) (pattern ("(Background|BackPrefs).(guide|doc).%s" @language)))
  611.    (infos)
  612.    (noposition)
  613.    (optional "force" "askuser")
  614.    (confirm)
  615. ) ;copyfiles (Anleitung)
  616. (complete 100)
  617.  
  618. (exit
  619.    (#WoSindProc @default-dest)
  620.    (if #copy-prefs (#WoSindPrefs #prefs-dest))
  621.    (if #copy-preset (#WoSindPresets #preset-dest))
  622.    (#WoSindAnl #docs-dest)
  623.    (quiet)
  624. ) ; exit
  625.